﻿<!--#include file="upload_5xsoft.inc"-->
<%
'
' 文件上传操作

'文件上传
'@param allowType "rar|zip|mp3"
' Function fileUpload(filePath, allowSize, allowType)
	' Server.ScriptTimeOut=999999
	' 文件保存目录,此目录必须为程序可读写
	' If filePath="" Then
		' filePath="/upload/"
	' End If
	' 在目录后加(/)
	' If right(filePath,1)<>"/" Then
		' filePath=filePath&"/"
	' End If
	
	' Dim ranNum,fileName,upload,formName
	' Set upload=New upload_5xsoft '建立上传对象
	' ranNum=year(time_now)&month(time_now)&day(time_now)&hour(time_now)&minute(time_now)&second(time_now)&int(90000*rnd)+10000
	' for Each formName In upload.objFile '列出所有上传了的文件
		' Set file=upload.file(formName) '生成一个文件对象
		' fileSize = file.filesize
		' If fileSize=0 Then
			' rupt "错误","请先选择你要上传的文件！"
		' End If
		' If fileSize>allowSize Then
			' rupt "错误","文件大小超过了限制"&forFileSize(allowSize)&""
		' End If

		' fileExt=file.filename
		' fileExt=Right(fileExt,Len(fileExt)-InStrRev(fileExt,"."))

		' If Instr("|"&allowType&"|", "|"&fileExt&"|")=0 Then
			' rupt "错误","文件格式不正确！"
		' End If

		' fileName=filePath&ranNum&"."&fileExt
		
		' If fileSize>0 Then '如果 fileSize > 0 说明有文件数据
			' result = file.SaveAs(Server.MapPath(fileName))'保存文件
			' If result=False Then
				' response.write "<br/>恭喜，上传成功！<br/>文件名："&fileName&""
			' Else
				' response.write "<br/>Sorry，上传失败！"
			' End If
		' End If
		' Set file=Nothing
	' Next
	' Set upload=Nothing
' End Function

%>